﻿#light

module Dwarf_CombinationalLogic_Generator

open System
open System.IO
open System.Text
open System.ComponentModel

let Dwarf_CombinationalLogic_Generator (fs : FileStream, args : String[]) = 
           
    let rand = new Random();
    
    let size = (int) args.[args.Length - 1]
    
    for i = 0 to size - 1 do 
        let bytes = Array.create<Byte> 1024  Byte.MinValue
        do rand.NextBytes(bytes)    
        do fs.Write( bytes, 0, 1024);
    
    true
